(* DataPas.pas *)

type 
   item	= record
	     tag   : boolean;
	     suit  : ShortString;
	     rank  : integer;
	     title : ShortString;
	  end;	   
var	
   x	: array[1..52] of item =
   (
    (tag:true; suit:'kier'; rank:2; title:'dwojka'),
    (tag:true; suit:'kier'; rank:3; title:'trojka'),
    (tag:true; suit:'kier'; rank:4; title:'czworka'),
    (tag:true; suit:'kier'; rank:5; title:'piatka'),
    (tag:true; suit:'kier'; rank:6; title:'szostka'),
    (tag:true; suit:'kier'; rank:7; title:'siodemka'),
    (tag:true; suit:'kier'; rank:8; title:'osemka'),
    (tag:true; suit:'kier'; rank:9; title:'dziewiatka'),
    (tag:true; suit:'kier'; rank:10; title:'dziesiatka'),
    (tag:true; suit:'kier'; rank:11; title:'	walet'),
    (tag:true; suit:'kier'; rank:12; title:'dama'),
    (tag:true; suit:'kier'; rank:13; title:'krol'),
    (tag:true; suit:'kier'; rank:14; title:'as'),
    (tag:true; suit:'karo'; rank:2; title:'dwojka'),
    (tag:true; suit:'karo'; rank:3; title:'trojka'),
    (tag:true; suit:'karo'; rank:4; title:'czworka'),
    (tag:true; suit:'karo'; rank:5; title:'piatka'),
    (tag:true; suit:'karo'; rank:6; title:'szostka'),
    (tag:true; suit:'karo'; rank:7; title:'siodemka'), 
    (tag:true; suit:'karo'; rank:8; title:'osemka'),
    (tag:true; suit:'karo'; rank:9; title:'dziewiatka'),
    (tag:true; suit:'karo'; rank:10; title:'dziesiatka'),
    (tag:true; suit:'karo'; rank:11; title:'walet'),
    (tag:true; suit:'karo'; rank:12; title:'dama'),
    (tag:true; suit:'karo'; rank:13; title:'krol'),
    (tag:true; suit:'karo'; rank:14; title:'as'),
    (tag:true; suit:'pik'; rank:2; title:'dwojka'),
    (tag:true; suit:'pik'; rank:3; title:'trojka'),
    (tag:true; suit:'pik'; rank:4; title:'czworka'), 
    (tag:true; suit:'pik'; rank:5; title:'piatka'),
    (tag:true; suit:'pik'; rank:6; title:'szostka'),
    (tag:true; suit:'pik'; rank:7; title:'siodemka'),
    (tag:true; suit:'pik'; rank:8; title:'osemka'),
    (tag:true; suit:'pik'; rank:9; title:'dziewiatka'),
    (tag:true; suit:'pik'; rank:10; title:'dziesiatka'),
    (tag:true; suit:'pik'; rank:11; title:'walet'),
    (tag:true; suit:'pik'; rank:12; title:'dama'),
    (tag:true; suit:'pik'; rank:13; title:'krol'),
    (tag:true; suit:'pik'; rank:14; title:'as'),
    (tag:true; suit:'trefl'; rank:2; title:'dwojka'),
    (tag:true; suit:'trefl'; rank:3; title:'trojka'),
    (tag:true; suit:'trefl'; rank:4; title:'czworka'), 
    (tag:true; suit:'trefl'; rank:5; title:'piatka'),
    (tag:true; suit:'trefl'; rank:6; title:'szostka'),
    (tag:true; suit:'trefl'; rank:7; title:'siodemka'), 
    (tag:true; suit:'trefl'; rank:8; title:'osemka'),
    (tag:true; suit:'trefl'; rank:9; title:'dziewiatka'),
    (tag:true; suit:'trefl'; rank:10; title:'dziesiatka'),
    (tag:true; suit:'trefl'; rank:11; title:'walet'),
    (tag:true; suit:'trefl'; rank:12; title:'dama'),
    (tag:true; suit:'trefl'; rank:13; title:'krol'),
    (tag:true; suit:'trefl'; rank:14; title:'as')
    );   
   fout	: file of item;
   i : integer;

begin
   assign(fout, 'data_pas.in');
   reset(fout);
   for i := 1 to 52 do
      write(fout, x[i]);
   close(fout);
end.
